SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO
create PROCEDURE [dbo].[SP_TWCLIE_TESO_I01]                  
/*---------------------------------------------------------*/                      
/*---Empresa              : OFISIS S.A.                  --*/                      
/*---Cliente              : OFISIS S.A.                  --*/                      
/*---Sistema              : Tesoreria                    --*/                      
/*---M¸dulo               : Empresa                      --*/                      
/*---Programa             : Procedimiento para insertar   --*/                      
/*---                       documentos clientes a tempo  --*/                            
/*---Script               : ttproc_i.sql                 --*/                      
/*---Nombre SP            : SP_TWDOCU_CLIE_I01           --*/                      
/*---Desarrollado por     : Carlos Marquez Escobar       --*/                      
/*---Fecha Creaci¸n       : 03/03/2006                   --*/                      
/*---Base Datos           : Microsoft Sql Server         --*/                      
/*---Versi¸n              : 8.0                          --*/                      
/*---Invoca a SP          :                              - -*/                      
/*---------------------------------------------------------*/   
/*---------------------------------------------------------*/                        
/*---Modificado 1 por     : Luis Calixto                 --*/                        
/*---Fecha Modificaci¸n   : 2011-12-10                   --*/                         
/*---Detalle Modificaci¸n : Se agrando los campos nombres y apellido--*/                        
/*---------------------------------------------------------*/                   
/*---------------------------------------------------------*/                      
/*---Comentarios                                         --*/                      
/*---                                                    --*/                      
/*---------------------------------------------------------*/                     
@ISCO_EMPR   TD_VC_002,                          
@ISCO_USUA_MODI  TD_VC_008_USUA ,                   
@ISCO_UNID  TD_VC_003                
As                    
          
Declare                      
@CNNU_FILA  TD_IN_001,                    
@CSCO_CLIE  TD_VC_020,                    
@CSCO_TIPO_CLIE TD_VC_003,                    
@CSAP_PATE_CLIE TD_VC_100,                    
@CSAP_MATE_CLIE TD_VC_100,                    
@CSNO_NATU_0001 TD_VC_100,                    
@CSNO_NATU_0002 TD_VC_100,                    
@CSNO_RAZO_SOCI TD_VC_100,                    
@CSTI_NATU_JURI TD_VC_001,                    
@CSST_RETE  TD_VC_001,                    
@CSST_BCON  TD_VC_001,                    
@CSST_PERC  TD_VC_001,          
                  
                 
@VSCO_CLIE   TD_VC_020,                    
@VSCO_TIPO_CLIE   TD_VC_003,                    
@VSAP_PATE_CLIE   TD_VC_020,                    
@VSAP_MATE_CLIE   TD_VC_020,                    
@VSNO_NATU_0001   TD_VC_020,                    
@VSNO_NATU_0002   TD_VC_020,                    
@VSNO_RAZO_SOCI   TD_VC_100,                    
@VSTI_NATU_JURI   TD_VC_001,                    
@VSST_RETE   TD_VC_001,                    
@VSST_BCON   TD_VC_001,                    
@VSST_PERC   TD_VC_001,          
          
@VSST_VENT   TD_VC_001,          
          
@VNNU_ERRO TD_IN_001          
                   
                   
Begin Tran SP_TWCLIE_TESO_I01                      
                      
DELETE #TWCLIE_ERRO_02          
              
Select  @VSST_VENT = ST_VENT          
From TMPARA_TESO                    
Where CO_EMPR = @ISCO_EMPR                  
                      
Declare CU_TWCLIE_TESO_I01 Cursor For                      
SELECT NU_FILA, CO_CLIE, CO_TIPO_CLIE, AP_PATE_CLIE, AP_MATE_CLIE, NO_NATU_0001, NO_NATU_0002,          
NO_RAZO_SOCI, TI_NATU_JURI, ST_RETE, ST_BCON, ST_PERC                
FROM #TWCLIE_ERRO_01                        
                     
                     
Open  CU_TWCLIE_TESO_I01                       
Fetch CU_TWCLIE_TESO_I01                       
Into  @CNNU_FILA, @CSCO_CLIE, @CSCO_TIPO_CLIE, @CSAP_PATE_CLIE, @CSAP_MATE_CLIE, @CSNO_NATU_0001, @CSNO_NATU_0002,          
@CSNO_RAZO_SOCI, @CSTI_NATU_JURI, @CSST_RETE, @CSST_BCON, @CSST_PERC          
                      
While (@@FETCH_STATUS = 0)                        
 Begin                        
   If (@@FETCH_STATUS < 0)                        
    Begin                        
     RAISERROR 20001 'FIN DE ARCHIVO'                        
  Close CU_TWCLIE_TESO_I01                        
  Deallocate CU_TWCLIE_TESO_I01                        
  Rollback tran                        
  Return                        
 End                        
            
----INICIALIZACIONES                      
 select @VSCO_CLIE  = NULL               
                  
  SELECT @VNNU_ERRO = 0;                
              
          
  -------VALIDACIONES -------           
         
  IF @VSST_VENT = 'S'          
  BEGIN                   
   ---  CLIENTE  ---                  
   IF EXISTS ( SELECT CO_CLIE          
   FROM  TMCLIE                   
   WHERE CO_EMPR = @ISCO_EMPR                   
   and CO_CLIE = LTRIM( RTRIM(@CSCO_CLIE))          
   AND TI_SITU != 'ANU' )          
           
    INSERT INTO #TWCLIE_ERRO_02( NU_FILA, CO_CLIE, CO_TIPO_CLIE, AP_PATE_CLIE, AP_MATE_CLIE,            
    NO_NATU_0001, NO_NATU_0002, NO_RAZO_SOCI, TI_NATU_JURI, ST_RETE, ST_BCON, ST_PERC, DE_ERRO )                   
    VALUES ( @CNNU_FILA, @CSCO_CLIE, @CSCO_TIPO_CLIE, @CSAP_PATE_CLIE, @CSAP_MATE_CLIE,          
    @CSNO_NATU_0001, @CSNO_NATU_0002, @CSNO_RAZO_SOCI, @CSTI_NATU_JURI, @CSST_RETE, @CSST_BCON, @CSST_PERC,          
    'CÓDIGO DE CLIENTE YA EXISTE' )                  
              
  END          
  ELSE IF @VSST_VENT = 'N'          
 BEGIN                   
  ---  CLIENTE  ---                  
  IF EXISTS ( SELECT CO_CLIE          
  FROM  TMCLIE_TESO          
  WHERE CO_EMPR = @ISCO_EMPR                   
  and CO_CLIE = LTRIM( RTRIM(@CSCO_CLIE))          
  AND TI_SITU != 'ANU' )          
          
   INSERT INTO #TWCLIE_ERRO_02( NU_FILA, CO_CLIE, CO_TIPO_CLIE, AP_PATE_CLIE, AP_MATE_CLIE,            
   NO_NATU_0001, NO_NATU_0002, NO_RAZO_SOCI, TI_NATU_JURI, ST_RETE, ST_BCON, ST_PERC, DE_ERRO )                   
   VALUES ( @CNNU_FILA, @CSCO_CLIE, @CSCO_TIPO_CLIE, @CSAP_PATE_CLIE, @CSAP_MATE_CLIE,          
   @CSNO_NATU_0001, @CSNO_NATU_0002, @CSNO_RAZO_SOCI, @CSTI_NATU_JURI, @CSST_RETE, @CSST_BCON, @CSST_PERC,          
   'CÓDIGO DE CLIENTE YA EXISTE' )                  
 END          
           
   IF ISNULL(@CSCO_CLIE,'') = ''                  
          
   INSERT INTO #TWCLIE_ERRO_02( NU_FILA, CO_CLIE, CO_TIPO_CLIE, AP_PATE_CLIE, AP_MATE_CLIE,            
   NO_NATU_0001, NO_NATU_0002, NO_RAZO_SOCI, TI_NATU_JURI, ST_RETE, ST_BCON, ST_PERC, DE_ERRO )                   
   VALUES ( @CNNU_FILA, @CSCO_CLIE, @CSCO_TIPO_CLIE, @CSAP_PATE_CLIE, @CSAP_MATE_CLIE,          
   @CSNO_NATU_0001, @CSNO_NATU_0002, @CSNO_RAZO_SOCI, @CSTI_NATU_JURI, @CSST_RETE, @CSST_BCON, @CSST_PERC,          
   'CÓDIGO DE CLIENTE NO PUEDE SER NULO' )        
         
    IF LEN(LTRIM(RTRIM(@CSCO_CLIE))) != 11                  
          
   INSERT INTO #TWCLIE_ERRO_02( NU_FILA, CO_CLIE, CO_TIPO_CLIE, AP_PATE_CLIE, AP_MATE_CLIE,            
   NO_NATU_0001, NO_NATU_0002, NO_RAZO_SOCI, TI_NATU_JURI, ST_RETE, ST_BCON, ST_PERC, DE_ERRO )                   
   VALUES ( @CNNU_FILA, @CSCO_CLIE, @CSCO_TIPO_CLIE, @CSAP_PATE_CLIE, @CSAP_MATE_CLIE,          
   @CSNO_NATU_0001, @CSNO_NATU_0002, @CSNO_RAZO_SOCI, @CSTI_NATU_JURI, @CSST_RETE, @CSST_BCON, @CSST_PERC,          
   'LOGINTUD CODIGO CLIENTE DEBE SER DE 11 CARACTERES' )         
          
                     
   ------------- CATEGORIA CLIENTE -------------                  
   IF @VSST_VENT = 'S'          
 BEGIN                   
  --- CATEGORIA CLIENTE  ---                  
  IF NOT EXISTS ( SELECT CO_TIPO_CLIE FROM OFIVENT..TTTIPO_CLIE          
  WHERE CO_TIPO_CLIE = @CSCO_TIPO_CLIE )          
          
   INSERT INTO #TWCLIE_ERRO_02( NU_FILA, CO_CLIE, CO_TIPO_CLIE, AP_PATE_CLIE, AP_MATE_CLIE,            
   NO_NATU_0001, NO_NATU_0002, NO_RAZO_SOCI, TI_NATU_JURI, ST_RETE, ST_BCON, ST_PERC, DE_ERRO )                   
   VALUES ( @CNNU_FILA, @CSCO_CLIE, @CSCO_TIPO_CLIE, @CSAP_PATE_CLIE, @CSAP_MATE_CLIE,          
   @CSNO_NATU_0001, @CSNO_NATU_0002, @CSNO_RAZO_SOCI, @CSTI_NATU_JURI, @CSST_RETE, @CSST_BCON, @CSST_PERC,          
   'CÓDIGO DE CATEGORIA CLIENTE NO EXISTE' )                  
             
 END          
  ELSE IF @VSST_VENT = 'N'          
 BEGIN                   
  --- CATEGORIA CLIENTE  ---                  
  IF NOT EXISTS ( SELECT CO_TIPO_CLIE FROM OFITESO..TTTIPO_CLIE          
  WHERE CO_TIPO_CLIE = @CSCO_TIPO_CLIE )          
          
   INSERT INTO #TWCLIE_ERRO_02( NU_FILA, CO_CLIE, CO_TIPO_CLIE, AP_PATE_CLIE, AP_MATE_CLIE,            
   NO_NATU_0001, NO_NATU_0002, NO_RAZO_SOCI, TI_NATU_JURI, ST_RETE, ST_BCON, ST_PERC, DE_ERRO )                   
   VALUES ( @CNNU_FILA, @CSCO_CLIE, @CSCO_TIPO_CLIE, @CSAP_PATE_CLIE, @CSAP_MATE_CLIE,          
   @CSNO_NATU_0001, @CSNO_NATU_0002, @CSNO_RAZO_SOCI, @CSTI_NATU_JURI, @CSST_RETE, @CSST_BCON, @CSST_PERC,          
   'CÓDIGO DE CATEGORIA CLIENTE NO EXISTE' )                  
 END          
           
 IF ISNULL(@CSCO_TIPO_CLIE,'') = ''                  
          
   INSERT INTO #TWCLIE_ERRO_02( NU_FILA, CO_CLIE, CO_TIPO_CLIE, AP_PATE_CLIE, AP_MATE_CLIE,            
   NO_NATU_0001, NO_NATU_0002, NO_RAZO_SOCI, TI_NATU_JURI, ST_RETE, ST_BCON, ST_PERC, DE_ERRO )                   
   VALUES ( @CNNU_FILA, @CSCO_CLIE, @CSCO_TIPO_CLIE, @CSAP_PATE_CLIE, @CSAP_MATE_CLIE,          
   @CSNO_NATU_0001, @CSNO_NATU_0002, @CSNO_RAZO_SOCI, @CSTI_NATU_JURI, @CSST_RETE, @CSST_BCON, @CSST_PERC,          
   'CÓDIGO DE CATEGORIA CLIENTE NO PUEDE SER NULO' )          
          
IF @CSTI_NATU_JURI = 'N'          
   BEGIN                 
  ------------------ APELLIDO PATERNO ----------------------                  
   IF ISNULL(@CSAP_PATE_CLIE,'') = ''                  
   BEGIN                  
             
    INSERT INTO #TWCLIE_ERRO_02( NU_FILA, CO_CLIE, CO_TIPO_CLIE, AP_PATE_CLIE, AP_MATE_CLIE,            
    NO_NATU_0001, NO_NATU_0002, NO_RAZO_SOCI, TI_NATU_JURI, ST_RETE, ST_BCON, ST_PERC, DE_ERRO )                   
    VALUES ( @CNNU_FILA, @CSCO_CLIE, @CSCO_TIPO_CLIE, @CSAP_PATE_CLIE, @CSAP_MATE_CLIE,          
    @CSNO_NATU_0001, @CSNO_NATU_0002, @CSNO_RAZO_SOCI, @CSTI_NATU_JURI, @CSST_RETE, @CSST_BCON, @CSST_PERC,          
    'APELLIDO PATERNO NO PUEDE SER NULO' )          
              
   END                  
   ELSE IF LEN(LTRIM(RTRIM(@CSAP_PATE_CLIE))) > 20          
   BEGIN                  
          
    INSERT INTO #TWCLIE_ERRO_02( NU_FILA, CO_CLIE, CO_TIPO_CLIE, AP_PATE_CLIE, AP_MATE_CLIE,            
    NO_NATU_0001, NO_NATU_0002, NO_RAZO_SOCI, TI_NATU_JURI, ST_RETE, ST_BCON, ST_PERC, DE_ERRO )                   
    VALUES ( @CNNU_FILA, @CSCO_CLIE, @CSCO_TIPO_CLIE, @CSAP_PATE_CLIE, @CSAP_MATE_CLIE,          
    @CSNO_NATU_0001, @CSNO_NATU_0002, @CSNO_RAZO_SOCI, @CSTI_NATU_JURI, @CSST_RETE, @CSST_BCON, @CSST_PERC,          
    'LONGITUD APELLIDO PATERNO NO PUEDE EXCEDER DE 20 CARACTERES ' )           
                    
   END                      
             
             
  ------------------ APELLIDO MATERNO ----------------------                  
   IF ISNULL(@CSAP_MATE_CLIE,'') = ''                  
   BEGIN                  
             
    INSERT INTO #TWCLIE_ERRO_02( NU_FILA, CO_CLIE, CO_TIPO_CLIE, AP_PATE_CLIE, AP_MATE_CLIE,            
    NO_NATU_0001, NO_NATU_0002, NO_RAZO_SOCI, TI_NATU_JURI, ST_RETE, ST_BCON, ST_PERC, DE_ERRO )                   
    VALUES ( @CNNU_FILA, @CSCO_CLIE, @CSCO_TIPO_CLIE, @CSAP_PATE_CLIE, @CSAP_MATE_CLIE,          
    @CSNO_NATU_0001, @CSNO_NATU_0002, @CSNO_RAZO_SOCI, @CSTI_NATU_JURI, @CSST_RETE, @CSST_BCON, @CSST_PERC,          
    'APELLIDO MATERNO NO PUEDE SER NULO' )          
              
   END                  
   ELSE IF LEN(LTRIM(RTRIM(@CSAP_MATE_CLIE))) > 20          
   BEGIN                  
          
    INSERT INTO #TWCLIE_ERRO_02( NU_FILA, CO_CLIE, CO_TIPO_CLIE, AP_PATE_CLIE, AP_MATE_CLIE,            
    NO_NATU_0001, NO_NATU_0002, NO_RAZO_SOCI, TI_NATU_JURI, ST_RETE, ST_BCON, ST_PERC, DE_ERRO )                   
    VALUES ( @CNNU_FILA, @CSCO_CLIE, @CSCO_TIPO_CLIE, @CSAP_PATE_CLIE, @CSAP_MATE_CLIE,          
    @CSNO_NATU_0001, @CSNO_NATU_0002, @CSNO_RAZO_SOCI, @CSTI_NATU_JURI, @CSST_RETE, @CSST_BCON, @CSST_PERC,          
    'LONGITUD APELLIDO MATERNO NO PUEDE EXCEDER DE 20 CARACTERES ' )           
                    
   END            
             
  ------------------ PRIMER NOMBRE ----------------------                  
   IF ISNULL(@CSNO_NATU_0001,'') = ''                  
   BEGIN                  
             
    INSERT INTO #TWCLIE_ERRO_02( NU_FILA, CO_CLIE, CO_TIPO_CLIE, AP_PATE_CLIE, AP_MATE_CLIE,            
    NO_NATU_0001, NO_NATU_0002, NO_RAZO_SOCI, TI_NATU_JURI, ST_RETE, ST_BCON, ST_PERC, DE_ERRO )                   
    VALUES ( @CNNU_FILA, @CSCO_CLIE, @CSCO_TIPO_CLIE, @CSAP_PATE_CLIE, @CSAP_MATE_CLIE,          
    @CSNO_NATU_0001, @CSNO_NATU_0002, @CSNO_RAZO_SOCI, @CSTI_NATU_JURI, @CSST_RETE, @CSST_BCON, @CSST_PERC,          
    'PRIMER NOMBRE NO PUEDE SER NULO' )          
              
   END                  
   ELSE IF LEN(LTRIM(RTRIM(@CSNO_NATU_0001))) > 20          
   BEGIN                  
          
    INSERT INTO #TWCLIE_ERRO_02( NU_FILA, CO_CLIE, CO_TIPO_CLIE, AP_PATE_CLIE, AP_MATE_CLIE,            
    NO_NATU_0001, NO_NATU_0002, NO_RAZO_SOCI, TI_NATU_JURI, ST_RETE, ST_BCON, ST_PERC, DE_ERRO )                   
    VALUES ( @CNNU_FILA, @CSCO_CLIE, @CSCO_TIPO_CLIE, @CSAP_PATE_CLIE, @CSAP_MATE_CLIE,          
    @CSNO_NATU_0001, @CSNO_NATU_0002, @CSNO_RAZO_SOCI, @CSTI_NATU_JURI, @CSST_RETE, @CSST_BCON, @CSST_PERC,          
    'LONGITUD PRIMER NOMBRE NO PUEDE EXCEDER DE 20 CARACTERES ' )           
                    
   END           
             
   ------------------ SEGUNDO NOMBRE ----------------------                  
   IF LEN(LTRIM(RTRIM(@CSNO_NATU_0002))) > 20          
   BEGIN                  
          
    INSERT INTO #TWCLIE_ERRO_02( NU_FILA, CO_CLIE, CO_TIPO_CLIE, AP_PATE_CLIE, AP_MATE_CLIE,            
    NO_NATU_0001, NO_NATU_0002, NO_RAZO_SOCI, TI_NATU_JURI, ST_RETE, ST_BCON, ST_PERC, DE_ERRO )                   
    VALUES ( @CNNU_FILA, @CSCO_CLIE, @CSCO_TIPO_CLIE, @CSAP_PATE_CLIE, @CSAP_MATE_CLIE,          
    @CSNO_NATU_0001, @CSNO_NATU_0002, @CSNO_RAZO_SOCI, @CSTI_NATU_JURI, @CSST_RETE, @CSST_BCON, @CSST_PERC,          
    'LONGITUD SEGUNDO NOMBRE NO PUEDE EXCEDER DE 20 CARACTERES ' )           
                    
   END          
   END          
             
ELSE IF @CSTI_NATU_JURI = 'J'          
  BEGIN          
  ------------------ RAZON SOCIAL ----------------------                  
   IF ISNULL(@CSNO_RAZO_SOCI,'') = ''                  
   BEGIN                  
             
    INSERT INTO #TWCLIE_ERRO_02( NU_FILA, CO_CLIE, CO_TIPO_CLIE, AP_PATE_CLIE, AP_MATE_CLIE,            
    NO_NATU_0001, NO_NATU_0002, NO_RAZO_SOCI, TI_NATU_JURI, ST_RETE, ST_BCON, ST_PERC, DE_ERRO )                   
    VALUES ( @CNNU_FILA, @CSCO_CLIE, @CSCO_TIPO_CLIE, @CSAP_PATE_CLIE, @CSAP_MATE_CLIE,          
    @CSNO_NATU_0001, @CSNO_NATU_0002, @CSNO_RAZO_SOCI, @CSTI_NATU_JURI, @CSST_RETE, @CSST_BCON, @CSST_PERC,          
    'RAZON SOCIAL NO PUEDE SER NULO' )          
              
   END                  
   ELSE IF LEN(LTRIM(RTRIM(@CSNO_RAZO_SOCI))) > 50          
   BEGIN                  
          
    INSERT INTO #TWCLIE_ERRO_02( NU_FILA, CO_CLIE, CO_TIPO_CLIE, AP_PATE_CLIE, AP_MATE_CLIE,            
    NO_NATU_0001, NO_NATU_0002, NO_RAZO_SOCI, TI_NATU_JURI, ST_RETE, ST_BCON, ST_PERC, DE_ERRO )                   
    VALUES ( @CNNU_FILA, @CSCO_CLIE, @CSCO_TIPO_CLIE, @CSAP_PATE_CLIE, @CSAP_MATE_CLIE,          
    @CSNO_NATU_0001, @CSNO_NATU_0002, @CSNO_RAZO_SOCI, @CSTI_NATU_JURI, @CSST_RETE, @CSST_BCON, @CSST_PERC,          
    'LONGITUD RAZON SOCIAL NO PUEDE EXCEDER DE 20 CARACTERES ' )           
                    
   END            
   END          
            
 ------------------ TIPO CLIENTE ----------------------                  
  IF ISNULL(@CSTI_NATU_JURI,'') = ''                  
  BEGIN                  
            
   INSERT INTO #TWCLIE_ERRO_02( NU_FILA, CO_CLIE, CO_TIPO_CLIE, AP_PATE_CLIE, AP_MATE_CLIE,            
   NO_NATU_0001, NO_NATU_0002, NO_RAZO_SOCI, TI_NATU_JURI, ST_RETE, ST_BCON, ST_PERC, DE_ERRO )                   
   VALUES ( @CNNU_FILA, @CSCO_CLIE, @CSCO_TIPO_CLIE, @CSAP_PATE_CLIE, @CSAP_MATE_CLIE,          
   @CSNO_NATU_0001, @CSNO_NATU_0002, @CSNO_RAZO_SOCI, @CSTI_NATU_JURI, @CSST_RETE, @CSST_BCON, @CSST_PERC,          
   'TIPO CLIENTE NO PUEDE SER NULO' )          
             
  END                  
  ELSE IF LTRIM(RTRIM(@CSTI_NATU_JURI)) NOT IN ('N','J')        
  BEGIN                  
          
   INSERT INTO #TWCLIE_ERRO_02( NU_FILA, CO_CLIE, CO_TIPO_CLIE, AP_PATE_CLIE, AP_MATE_CLIE,            
   NO_NATU_0001, NO_NATU_0002, NO_RAZO_SOCI, TI_NATU_JURI, ST_RETE, ST_BCON, ST_PERC, DE_ERRO )                   
   VALUES ( @CNNU_FILA, @CSCO_CLIE, @CSCO_TIPO_CLIE, @CSAP_PATE_CLIE, @CSAP_MATE_CLIE,          
   @CSNO_NATU_0001, @CSNO_NATU_0002, @CSNO_RAZO_SOCI, @CSTI_NATU_JURI, @CSST_RETE, @CSST_BCON, @CSST_PERC,          
   'TIPO CLIENTE SOLO PUEDE SER N (NATURAL) o J (JURIDICO) ' )           
                   
  END            
            
 ------------------ ESTADO AGENTE RETENEDOR ----------------------                  
  IF ISNULL(@CSST_RETE,'') = ''                  
  BEGIN           
            
   INSERT INTO #TWCLIE_ERRO_02( NU_FILA, CO_CLIE, CO_TIPO_CLIE, AP_PATE_CLIE, AP_MATE_CLIE,            
   NO_NATU_0001, NO_NATU_0002, NO_RAZO_SOCI, TI_NATU_JURI, ST_RETE, ST_BCON, ST_PERC, DE_ERRO )                   
   VALUES ( @CNNU_FILA, @CSCO_CLIE, @CSCO_TIPO_CLIE, @CSAP_PATE_CLIE, @CSAP_MATE_CLIE,          
   @CSNO_NATU_0001, @CSNO_NATU_0002, @CSNO_RAZO_SOCI, @CSTI_NATU_JURI, @CSST_RETE, @CSST_BCON, @CSST_PERC,          
   'ESTADO AGENTE RETENEDOR NO PUEDE SER NULO' )          
             
  END                  
  ELSE IF LTRIM(RTRIM(@CSST_RETE)) NOT IN ('N','S')        
  BEGIN                  
         
        
         
   INSERT INTO #TWCLIE_ERRO_02( NU_FILA, CO_CLIE, CO_TIPO_CLIE, AP_PATE_CLIE, AP_MATE_CLIE,            
   NO_NATU_0001, NO_NATU_0002, NO_RAZO_SOCI, TI_NATU_JURI, ST_RETE, ST_BCON, ST_PERC, DE_ERRO )                   
   VALUES ( @CNNU_FILA, @CSCO_CLIE, @CSCO_TIPO_CLIE, @CSAP_PATE_CLIE, @CSAP_MATE_CLIE,          
   @CSNO_NATU_0001, @CSNO_NATU_0002, @CSNO_RAZO_SOCI, @CSTI_NATU_JURI, @CSST_RETE, @CSST_BCON, @CSST_PERC,          
   'ESTADO AGENTE RETENEDOR SOLO PUEDE SER N o S ' )           
                   
  END          
          
 ------------------ ESTADO BUEN CONTRIBUYENTE ----------------------                  
  IF ISNULL(@CSST_BCON,'') = ''                  
  BEGIN                  
            
   INSERT INTO #TWCLIE_ERRO_02( NU_FILA, CO_CLIE, CO_TIPO_CLIE, AP_PATE_CLIE, AP_MATE_CLIE,            
   NO_NATU_0001, NO_NATU_0002, NO_RAZO_SOCI, TI_NATU_JURI, ST_RETE, ST_BCON, ST_PERC, DE_ERRO )                   
   VALUES ( @CNNU_FILA, @CSCO_CLIE, @CSCO_TIPO_CLIE, @CSAP_PATE_CLIE, @CSAP_MATE_CLIE,          
   @CSNO_NATU_0001, @CSNO_NATU_0002, @CSNO_RAZO_SOCI, @CSTI_NATU_JURI, @CSST_RETE, @CSST_BCON, @CSST_PERC,          
   'ESTADO BUEN CONTRIBUYENTE NO PUEDE SER NULO' )          
             
  END                  
  ELSE IF LTRIM(RTRIM(@CSST_BCON)) NOT IN ('N','S')        
  BEGIN                  
          
   INSERT INTO #TWCLIE_ERRO_02( NU_FILA, CO_CLIE, CO_TIPO_CLIE, AP_PATE_CLIE, AP_MATE_CLIE,            
   NO_NATU_0001, NO_NATU_0002, NO_RAZO_SOCI, TI_NATU_JURI, ST_RETE, ST_BCON, ST_PERC, DE_ERRO )                   
   VALUES ( @CNNU_FILA, @CSCO_CLIE, @CSCO_TIPO_CLIE, @CSAP_PATE_CLIE, @CSAP_MATE_CLIE,          
   @CSNO_NATU_0001, @CSNO_NATU_0002, @CSNO_RAZO_SOCI, @CSTI_NATU_JURI, @CSST_RETE, @CSST_BCON, @CSST_PERC,          
   'ESTADO BUEN CONTRIBUYENTE SOLO PUEDE SER N o S ' )           
                   
  END          
            
 ------------------ ESTADO AGENTE PERCEPCION ----------------------                  
  IF ISNULL(@CSST_PERC,'') = ''                  
  BEGIN                  
            
   INSERT INTO #TWCLIE_ERRO_02( NU_FILA, CO_CLIE, CO_TIPO_CLIE, AP_PATE_CLIE, AP_MATE_CLIE,            
   NO_NATU_0001, NO_NATU_0002, NO_RAZO_SOCI, TI_NATU_JURI, ST_RETE, ST_BCON, ST_PERC, DE_ERRO )                   
   VALUES ( @CNNU_FILA, @CSCO_CLIE, @CSCO_TIPO_CLIE, @CSAP_PATE_CLIE, @CSAP_MATE_CLIE,          
   @CSNO_NATU_0001, @CSNO_NATU_0002, @CSNO_RAZO_SOCI, @CSTI_NATU_JURI, @CSST_RETE, @CSST_BCON, @CSST_PERC,          
   'ESTADO AGENTE PERCEPCION NO PUEDE SER NULO' )          
             
  END                  
  ELSE IF LTRIM(RTRIM(@CSST_PERC)) NOT IN ('N','S')        
  BEGIN                  
          
   INSERT INTO #TWCLIE_ERRO_02( NU_FILA, CO_CLIE, CO_TIPO_CLIE, AP_PATE_CLIE, AP_MATE_CLIE,            
   NO_NATU_0001, NO_NATU_0002, NO_RAZO_SOCI, TI_NATU_JURI, ST_RETE, ST_BCON, ST_PERC, DE_ERRO )                   
   VALUES ( @CNNU_FILA, @CSCO_CLIE, @CSCO_TIPO_CLIE, @CSAP_PATE_CLIE, @CSAP_MATE_CLIE,          
   @CSNO_NATU_0001, @CSNO_NATU_0002, @CSNO_RAZO_SOCI, @CSTI_NATU_JURI, @CSST_RETE, @CSST_BCON, @CSST_PERC,          
   'ESTADO AGENTE PERCEPCION SOLO PUEDE SER N o S ' )           
                   
  END          
          
 ------------------ REGISTRO DUPLICADO ----------------------                  
          
   IF EXISTS ( SELECT  COUNT(*)          
 FROM #TWCLIE_ERRO_01          
 WHERE CO_CLIE = @CSCO_CLIE             
 HAVING COUNT(*)>1)                
   INSERT INTO #TWCLIE_ERRO_02( NU_FILA, CO_CLIE, CO_TIPO_CLIE, AP_PATE_CLIE, AP_MATE_CLIE,            
   NO_NATU_0001, NO_NATU_0002, NO_RAZO_SOCI, TI_NATU_JURI, ST_RETE, ST_BCON, ST_PERC, DE_ERRO )                   
VALUES ( @CNNU_FILA, @CSCO_CLIE, @CSCO_TIPO_CLIE, @CSAP_PATE_CLIE, @CSAP_MATE_CLIE,          
   @CSNO_NATU_0001, @CSNO_NATU_0002, @CSNO_RAZO_SOCI, @CSTI_NATU_JURI, @CSST_RETE, @CSST_BCON, @CSST_PERC,          
   'REGISTRO DUPLICADO ' )           
             
          
                
          
                
Fetch  CU_TWCLIE_TESO_I01                       
Into  @CNNU_FILA, @CSCO_CLIE, @CSCO_TIPO_CLIE, @CSAP_PATE_CLIE, @CSAP_MATE_CLIE, @CSNO_NATU_0001, @CSNO_NATU_0002,          
@CSNO_RAZO_SOCI, @CSTI_NATU_JURI, @CSST_RETE, @CSST_BCON, @CSST_PERC            
                  
End                  
                  
Close CU_TWCLIE_TESO_I01                      
Deallocate CU_TWCLIE_TESO_I01                      
                  
                  
Commit Tran SP_TWCLIE_TESO_I01
GO
